@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}} zzh}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}<='5MOVSCREERALINESEPOKTEMPMBASPL2BREADDC,} -}%-AA4"!% 9ARA'AS@9A8@ ==165,16,16,7,41,12.}7,133,16,141,14,210,169,10,141,26,2,96;@I,+]A 'A9AK/}AR@]@@AR@ }116.'hhhhhhh֑`%%6-F:@0},%F:@,$AV(/A(/6-?:C:,<<%@<A Y,2A@7 AP<&&;@@,;@1},;@@,F-@@#K #AhM6-@P-@@BU Z('@"P:'@,(62}-@d 6. |6.| nC-@# ,-@7@#1 C-@@#s_"@!-@#3}( :-@8@#A M6-_-@@#x"4AEy:*-$@%@F@P6@4}6B2I: z4 A%}-@B:,0B2I$@%@F=7<,4 _25}2@ A5G%2@@@G2@@@@6}!-%@@#! 7<, G%2G2@ 6. 7}-@AP  B A-@PAU@+B2I/ AB2w B 8}B @,,,,,,,,,,,,,,,,,;;, CodeWriter Corporation,, presentscc, Accounts Payable,, 9} A,, CodeWriter,, programdd,,,, Copyright 1982, :} by, Cortechs Corp.--, all rights reserved, , ,>LIST "D:INTRO.LSTCONVERTE;}D BY JOHN BLUMECODEWRITER CORPORATION;@%, AU  AUp6-F:A,&@6-AV<}$+%@+%@++6-?:C:,<%@<%@<A,II6-?:C:,<BBy<<AY<@F=}<B2w<@<A<,?%A?6-?:C:,<%A<%A<A(,?%A@?>}6-?:C:,<%A@<%AA<A(,B2W@A#@6-A((6-?:C:,:,7 $0,0,60,60,60,60,2A}55,2550uSYSTEM CONFIGURATION5uB2y@?u +@DuQ0@@70@@@Q0B}@@Iu7-7 @____________________Nu)-@@) @SYSTEMSu0-C}@@0 @ CONFIGURATIONXu'-@@' @MENU]u7-@7 @__________D}__________bu,-@@ , @ NUMBER OFgu7-@@7 @ DRIVES = >:@,lu7-@E}7 @____________________qu--@@- @ DEFAULT ISvu*-@@* @1 DRIVF}E{uAR@uJ  J ; HIT NUMBER FOR DRIVES (1/2) OR TO CONTINUEu<B2y@ BG}<F:B2y,@Bu@6-@6- @@@@K:uAiApuH}'AdAU'B2y@u!6-F:Ad,!6-F:B2y,u"@$u#AU B%# BuI} Bu @0)!@1$u&Ap@2&&6-F:Ap,u B)@u0-@@-J} @>:&@2,0$y$}1 B 01@@D:USER }@}+4VIEWED!6. D:MENUK}.BAS+ B 5}6. D:NOTES.BAS#}$(}d +AR@1-@@R(Program Loading Please Wait.dL}AR2}%D:BOOTPOKTEMPMBASPL2BREADDC&u) !"`3!3?@A@B V}CDEFGHIJKLMNOPQR W}STUVWXYZ[\]^_`a X}bcdefMAX RECORDS=250SET UP DIM ARRAYS+6-@ B+AR@ Y} >:A%, Running... @ A()9 Bq B)-@@"9  Printing...* Z}2-@!6.2-@8+% 1!A'%6-&A(,67%@,.>:,-   3. [}/ B B0$U))31,28,31,30,31,30,31,31,30,31,30,31Z?9@,#@.-@@2";68 \},-? _36-@A6-AP'6-36-AdDIM STATEMENTSi00;$@%@,;@@,;@ ]},nH6-@H;A",9@B,9@A,;@@,;@@,sRR;A,;A,9@B,9@A, ^}9@A,;@@,;@@,v00;@@,;@@,;,9,;@,x&6-@ B&(A"y B _} A z4 A&4@@ D:PROGRAM{%@@% A'~,6. D:RECEIVE.S `}CR"@, B @@:@%68@,-@:68@,-@-@ a}@@@@ 68,-68%@,-8,%%%68%@,- b}8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@$$678 c},<8%@,&@,. @ B)6-F:Ap, B)(A h6-6- d}|* 6. 67@@,.*67@,.$ 6. 67,.$67@,."A@X A@#BU! e} A,@X@@D1:RECEIVE.GLB-@" A3@ 6-A:, f}6-8%@,&8,""8,&@B$B#$$678,<8%@,&@,. A5''678,<8% g}@,&@,.0X  A6-@;6.D :RECEIVE.IDX;67@<@,.=:F:Ap,,+@ h}+@@@67,. 6-% A`56- A56-A:7$@%@ i},, B* 6..67@@,.*67@,.$@ B` Be5 + j}6-@+AR@5 B >:A%,*-@@* Program designed-@@ by k}0-@ @0 CodeWriter CorporationO4 D:PAYABLE.SCR)-@ @E(Accounts Payable SystemO A% l}4-@@4 Accounts Receivable System .-@@.(Your selections are:>-@@ > $ m}File preparation.(first time only).F>-@@>($Enter new records..................E>-@@>($L n}ookup records.....................L!>-@@>($Search records.....................S&>-@@>($Up o}date records.....................U+>-@@>($Delete records.....................D0>-@@> $Exi p}t program.......................X5>-@@>($Exit to main menu..................M:>-@@ >($Ente q}r function by pressing the key ?<-@@"<(" To return to this menu press D16-@76-@ '6- r}@'1 B F4)4>:@',AH4FAI"AK4EA M4LB s}O4SB Q4UB0S* 4D B@ @* AX* 4XA8'+* t}[4MA] A16-@ B' B1 Ap + A)AR@;- u}@@^ Loading program please wait...pAR% D:MENU.BAS Bm +'0@ v}@A0@@[0@@@mAR@9-@@9 This opt w}ion will erase all your5-@@5 previously entered records.=-@@= #To begin file preparati x}on press =-@@= #To exit file preparation press ?-@@? %Please enter choice/press y}RETURN ۠ 16-@26-@7'6-@1 B 4CA4XA A5LV z}? >:A%,"-@@? This will take some time` Bot A##@@ {}E:A `a (}-@@2 Your file is full.D-@@a Hit to continue. |}#6- B# A# 6- B }#AR@#-@ 8,!@A!0 }}*/-8,8,/ 78,<8%@,&@,48,"A!0>8,"@ mm/dd/yyH>8,@*8 ~},> 7@<8%@,&8,,R AR\6-aH-@@"H &@# records } on file f-@p''8, @)8,!@A!u<-@@#< ! to skip fie }lds/return to menuz A{0A!|@A#/ -/8, @)8,!@A!y }8, @A!xo6-%6-8%@,&8,D8,&@B$B#e678,<8%@,&@,.o } A!y$$678,<8%@,&@,.  6- A!$$678,<8%@,&@,. 6-@ }# B BP#6-@AR@j-@@"? % for menu, to print, j(% } to change, to save AR4F:Ad,"@(*AdAU4 A#,F:B2y },"@" @@, A" ,F:B2y,"@" B3, A"P F:B2y,"@A"P A"%( }A#6.7@<@9,! BP B! B6-%@ A E@ A@ }B% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8%@,&8,F'6-6-"@ }' BH 4$I BJ3!@3&@B B!B!LAN!@* }A%R#"@ A`# A S6-TAV''B%B&B$B#X$Y 4 } $\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`  ($bD7< },4m)7<,4MA6-A:78,<8%@,&@,,%D$d,)6-A:78,<8%@,&@,,&,$0AeM }-@@"> $KEY FIELD - You must enter somethingJ6-@M$6-$*+9#@@ }E:/6-9 B + B(A+>-@@">($ to exit, to print, +))( } to change, to continue+4F:Ad,"@(*AdAU4 B@%+,F:B2y,"@" @@, B }p*+-F:B2y,"@#@- B/+ F:B2y,@B54+ B3(B@5+ 6-6-%@ }6+V+7@<@9,07@<@9,5 B `L6.7@<@9,V BP9+ B B>+ B0 }.@ A..6-@.##@@E:.6-@ B. @B }%. 6.6.6-. }-@@.-- $SCAN ALL OR SELECTED RECORDS (S/A)? .16-@6- }@8'6-@21 B .4B%/4AB#p/4SB `/ B / }-@@ }!/>' WHICH FIELD TO SELECT ON (1-34,> OR '?' TO LIST)? &/16-@6-@'6-@1 B0/4>:@' },B%:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @)!@4B!@N/6- }-@X/56-%@58, @)8,!@B! b/  B!Pl/2-@@#(  Ġ2 }B v/"6-8%@,&8,"6-8,/!@6-@/4-@@4 78,<8%@,&@,/ } @B"p/,   ,  SMALLEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /(  ( }  LARGEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /'6-@6-@'6-@ / } B#0//6.7@<, "@/6.mm/dd/yy//   /  SMALLEST VALUE TO SELECT? 0$$  INC }LUSIVE(Y/N)?  0,  ,  LARGEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0!6-@ 6-@0!6- }*0 B'/04B%40 6-6.6->0+6-%@!@ +6-%@@0 B'C04B }%H0 6-6.6-R0!&@B%W0 >:A%,\0+6-@$6-&@%6-+6-f0 B }Bp0"B%0u0"@B$qz0"@B$0$$6.78,<8%@,&@,04B }$@02)*4B%p04B%003)*4B%p0 B%00$$6.78,<8%@,&@,0 }4B$u0 6.6. B'6.0## )*"B%p04B%00 6.6. B'6. }0## )*"B%p0 B%00''6-A:78,<8%@,&@,,04B%0 )*"B }%p04B%00!)*"B%p0 BP0AR@ B0>-@@">($ to exi }t, to print, 0--($to change, to continue, elete1:F:Ad,"@(*AdAU06-: B }%p1>F:Ad,"@X*AdAU4 B@0> B#p1,F:B2y,"@" @@, B%5 1 F:B2y },"@B%p1 F:B2y,@B%E1& B36-6-&(B%51V+7@<@9,07@<@9 },5 B `L6.7@<@9,V BP1! B B! B%516-%@ B#p$1@ }A1! 6-6-"@! B1-6-4)4*6-%@-$1+!@+&@B B! }1B'1"@6-A:,1B%B&B%1-6-%@6-#6-@2- B1 6 }-4N1 6.1$22##@@E:2 B2(B1p2 B32B12 6 }. BP3j-@@"> $Hit to return to menu, or P-@@#j to continue editing.3)6 }- B)4B1p"3 B,3 B0@63 6-6-%@@3337@<@9,47@<@9 },B1`J3 B `T3$6.7@<@9,$ BPh3 B Br3@ A33 6.6 }-4 B4 }4Q0@@70@@Q0@@@!4 BP }&4<-@@"< "Enter 1-30 to change field, '?' to04++ " list, 'p'rint record or 's'ave. :416-@#6-@4 }'6-@1 B?4 BD4 4S)4s6-@ $I4/4P)4p @@% B/ B3PN4  }46-$X4+ 4?6-@! B0+ B3@b496- B!P9) @)!@0B6l46 }--@v456-%@58, @)8,!@B404 46-@4 A4 46 }-$4$$678,<8%@,&@,.4 B3  5*5R-@@"< !ĠĠ - Hit }H6-R B45 B3P66##@@E:6 B6(B@6k B-@ }@#> Sure you want to delete? J6-@#V6-@3a6-@:Y,k B64N)4B@66-& }@ B `66-6@6 B`7 6. 7$>$B$END GLOBALSB BPB[-@@",  }Printer not ready.>-@@#[ Hit to continue.BC-@@"!6-@"-6-@96-C }BB B$PFPC CALCS AND GLOBALSQF BRF6-A:7A<A",,F6-A:7A#<A1,,F }6-A:7AP<AT,,F6-A:7AU<Ac,,F6-A:7A<A,,F6-A:7A<A,,F6-A:7A }<A,,F6-A:7A<A',,F6-A:7A(<A1,,F6-A:7AX<Af,, G6-A:7Av<A },,LGCALC P.C.'SG6-$%$%$%$G6-$'AG 6-%%H 6-&H6 6-6-@  B#667 }A2<A@,.H6 6-6-@ B#667AA<AH,.H6 6-6-@  B#667Ag<Au,. } I6 6-6-@  B#667A<A,.pI B`$8JBJ6- BDJ6-GJ+-@ }@!+ Please enter key.LJ'-@@'  Customer VJ16-@6-@'6-@%1 B[ }J4)4>:@',$`J B%6.oJ+-@@!+  qJ 6. BtJ(B`~J! } 6-6-%@! BJ BJ""07@<@9,B@J BPJ'-@@#'  Is this it }? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J 6. BJ B`JC }-@ }@C #No Record Found. Hit for menuJ F:B2y,@BpJ$ N*N# 6. 67,.#67@ },.4N 6.6.9NF@#6.D :RECEIVE.DATF67@<@,.=:F:Ap,,>N @@ }CN-@HN@RN\N6-P:'@',fN6-&$@'zN6-%@dN6-%@dN6-% }@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:,N67B:,%@,.> }:,N67B:,%@,.N-@N''8,")8,!@BN$$6.78,<8%@,&@,N  }@N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: /O 6-@O@ } B`O. 6.067,.$67@,.. BeO B$O B6.$O.F:A,"Ab. }DI }SK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,.OR!  Hit to continue.-6-96- }E6-O BR$LOVO$ 6-B:,!@$6-@`O/67%@,.!6-@/6-&@jO* @ }6-@'6-*$tOK6-$@&@.37<%&@,:6-H6-%@K$~O"BO }.6-P:+%,'@,.6-$@&@O/7<%&@,6-O&37<%&@,&6-%@O BP }O6-$@&@O6-+47<%&@,,O6.7<%@,$OP;6.D :RECEIVE.DAT;67@<@ },.=:F:Ap,,P+@+@@#P# 6. 67,.#67@,.(P@2P-@ }6-$6.D :RECEIVE.PRG>67@<@,.=:,T+@+@@T@ }6-!@$T @ A)T B$UU6- B pU4)4$U76-A:7@ }<@,,76-A:7@<@,,V'6-A:7@<@,,' B V++)) B p V }""P:,)P:,)P:,B pV30"@*"@)*P:'@,"'@3$V/ @)!@%6-@/ B } "V. @)!+8,,$6-@. B ,V$6V'-@@"'  Invalid date.;V B6-@$@ }V--@@"- Month out of range.EV$JV+-@@"+ Day out of range.OV$TV^V6- B }!PhV:-@@": A numeric answer is requiredrV$VV 46-$V B!6-A:,V }6- B$V6-@ B$W&W$$6-P:A$%?P,'A0W""6E)EB# }:W! 6.=:,6-B:,!6-@DW.-@7<,4..6-%@&NW SW 6.XW& %!6.#67%@ },.&$bW67&@,.0.00lW67%@&&<&,.$vWK 6.*67&@,.+67@,.H67&@< }&@,..K$WW""6E)EB$W 6.=:,6-B:,W6.7@<,W 6.67%@,. }$W. 6.*67&@,.+67@,..$W6.7@<,W 6.67%@,.W$HXMX" 46. } 6."$RX0 6-A:,6-A:7@,,06-A:7@,,\XH6.=:%A,.67@,.=:%A,H67@,. }=:%A,fXD67@<@,./567@<@,./D6.7@,pX$XX%6-6-% B }'pX'6-A:7@,,'6-A:7@,,X 6-N:&,$X 6-A:,6-A:,X 6-N:&,$X'6-A:7@ },,'6-A:7@,,X B6-N:&,$YY!6-B:,"!$$Y8-@B:,,7<,10* }7<,/986-@.Y   $tY~Y!6-@6-B:,!6-B:,Y   $Y-&Y$7%@<%,4 }$6-Y   $YY4 }AR@(6-46-@Y'6-@6-'6-Y!!6 }.Keyboard entered fieldsZ%6-@6-@% B3ZB1Z##6.Program calculated fields(Z%6-@ }6-@% B3:, >:,w"Bpw&6-%@&7<,0/Bp }w.6-%@$*@@1. Bpw) 6-6-&@)AR@w -% 7<,w"7<,4 }/"6-&@wD67%@,.'AR:*@@0D Bpwx x6-F:B2y,x"@ }*"@$x"@*"@$x"@*"@$x"@*"@$#x"@*"@ }$(x"@*"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@@ }K:xAR@x -x)!@1* @) >:%A(,x' @2)!@' >:A` },x)@x"AUB x"@'6.$x!@1* @6-y'!@* A#' }6-&@2y B y -6.>:, $y]@)0@@C0@@]0@ }@@"y$|yA@'-@"/ A@y$ D:RECEIVE.PRGUNMD v 88MSKPRTRSCRSPFLAGINDEXINFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU}MTXNUMSESUMITEMFLDBPDFFEPSVDVDSECFLGFSFLTYPPAGSECTIOROCOPDIFKENOPPMBLANKOERVNVNVDVDVA }1VA2VNVNGTSUMPCF3F4IP(7 (_('(Z@7# $ $  }$BZ k'PP 'PP (d@'@@2@@ @AAX"+AV!+AUAy@AZ * }@@(@@@ !@"@A#( A$) A%S) &@'@@()*R  }+BA,o(-AU./0123456B!"78@"9: };<=>?@@ABCDB!!EAFB!!GB"H#I#}JAKB!"ALZ#AM`# AN#O#P#QR@S SAVE "D:BASIC.R ;@,4 @}P4@@ D:PROGRAM%@@% @2,@"6. D:RECEIVE.SCR, B}ZAR@ }dM4 D:PAYABLE.SCR(}/-@@C Payables ReportM Ae9(>:A%,"-@}@9 Receivables Reporti'-@@ '  Designed by :n0-@ @0 Codewriter Corporationx}-@A . STEP ONEjj;@@,;@@,;@@,;@f$@,;@,;}@$A,;@"$@9, RR;@,9@A,9@B,9@B,9,9@,9,11;}@%,;@,;@,;@%,ee;@,;@,;@,;@"$@9,;@,;@,;A},9@,G+F:Ap,"@)F:Ap,"@=6.=:F:Ap,,G A .A +'0@@}A0@@ @84-@@4 Which drive will hold yourB*-@@* data disk? (1/2)L}16-@"6-@'6-@1 B V%01*02 B % A` 6-A:,Apj>6.D :RECEI}VE.DAT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GLB~8 A`8@@} D:RECEIVE.SCR A0 A APD B@/68@,-@D68@,-@}-@@@@@" 68,-"68%@,-8,%%%68%@},-8,%@%&& -@@$$678,<8%@,&@,. @//}@@D :RECEIVE.F01@@6-A:, 9,9%,9, @}@ 94 D:PAYABLE.SCR967@4<@C,. Payables  34 D:RECEIVE.SCR367@%<@(,.R}ecd 2 6. #67@f$@,.267@,.Z67@,.!67@,.267Aa,.-B67A@,.Z67}Ab,.7Aa,-@@( 68,-68,-68,-2 7"A < 9, }F-@P@Z67%A@,.d68%,-i68,-%B:,&@n x A @!}+@/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.-@@"}. @ IN DRIVE #10-@@0 @ PRESS --@@- @ WHEN READY#}6-@ B$ A24 6.What is today's date? H BM 6.6-R!-@!(8,A$}!2S77&@A!@A!`A"PA!A"T W: (}-@@:(Is this all correct? (Y/N)%}X16-@36-@'6-@21 BY4YA00Z A \--6.#ENTER THE LOW BALANCE FOR THE RANG&}Ea6-@  B6-f,,6."ENTER THE HI BALANCE FOR THE RANGEk"6-@  B6-"$p--6.#ENTER'} THE LO DUE DATE FOR THE RANGEu B6-z--6.#ENTER THE HI DUE DATE FOR THE RANGE B6-$,,6.(}"ENTER THE CUSTOMER NAME FOR SECT 56-@% B6.''6.ENTER THE CUSTOMER ACCOUNT # "6-@ B)}6."$''6.ENTER THE LOW AMOUNT RECEIVED6-@  B6-((6.ENTER THE HIGH AMOUNT RECEIVED*}"6-@  B6-"$(8@, A!@(8@, A!`$  . STEP THREE +} A +'0@@ @A0@@ @ 9-@@9 Do you want this report sent to -,}-@@- creen or rinter?  16-@%6-@'6-@21 B  0S*0PA0` 6.-} ! 4P B!A0` A5 OPTIONAL SECTIONING $-@ 68,-$  % } B .}%-@@ Do you want all sections /-@@/ of this report? (y/n) 16-@'6-@/}'6-@21 B ) 4Y-@"68,-& )$  } B 6- 3-@@3 Enter 0}a section number to 4-@@4 include in this report, or (-@@(  to exit .-@1}@. SECTIONS IN REPORT: 16-@ 6-@'6-@1 B  4 B$  A36-A:2},  @)!)8,A3 46-P:'@@,4-%@&@@$%@  * 6-%@4 68,-> 3} A3 UPPER LOWER CASE  }-@@ !! Do you want to ignore the 2-@@2 differe4}nce between upper /-@@/ and lower case? (y/n) 16-@'6-@'6-@21 B  6.N5}4NA9 6.Y  6. B(6.  6. B(6.<4P)4p A`. STEP FO6}URA +'0@@ @A0@@ @0-@@0 Do you wish to sort? 17}6-@6-@&'6-@21 B4NAP_ A@c@@@@ D:SORT.8}BASK@U B_ A@p }-@@BB  Can't find >:@4, D:SORT.BAS>:@4, on dis9}k.-@@&9-@@9 Enter field to sort records by.6-@@6 (1 - , or :} to list)? 16-@)6-@'6-@1 B+4L)4l B0! }+ A@p A@6-A:;},A-!**8,!*8, @7 BA AAP";-@@; Field  invalid. Enter for<},@-@@6 a list of fields to sort on.@ A@6M 6-6-#-@?8,!*8, @=}M6-%@8 ;ASC, OR DSC SORT@Q-@@ .-@@Q scending or escending sort?>}J'6-@56-@'6-@2T# B #0A*0DAA^ 4D6-6h//@@?}D:SORTPARS.DAT|9& @7@:&@2,BY   $YLIST FIELDSY4 }AR@(6-46-@Y6-@6-Y!!Y}6.Keyboard entered fieldsZ%6-@6-@% B3ZB1Z##6.Program calculated fields(Z%6-@Z}6-@% B3:, >:,w"Bpg}w&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-6-&@)AR@w -%q}%B'DOS SYSB"+BOOT BMAUTORUN SYSBORECEIVE PRGBsRECEIVE R01BRECEIVE P01B RECEIVE F01B,MENU BASB<LINK BASB'@NOTES FLEB gNOTES BASB)qSORT BASB PAYABLE SCRBPROGRAM BMENU FLEBUSER  7<,w"7<,4/"6-&@w867%@,.'AR. 8 BpwCONSOL CONTROLSw!!r}CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4s},?x LOOP x6-F:B2y,x"@*"@$x"@*"@$x"@*"@$x"@t}*"@$#x"@*"@$(x"@*"@$-x B%Px B Zx0Y*0N*0Bu}dx$x.@.@@K:xAR@x -x)!@1* @) >:%A(v},x' @2)!@' >:A`,x)@x"AUB x"@'6.$x!@1* w}@6-y'!@* A#'6-&@2y B y -6.>:, $y]@)0@@x}C0@@]0@@@"y$|y--@@"- 7@<@5,y$}@-@y}@ @(&}4 PAYABLE.SCRB!}**(" 1 | Display all Customerz}s },,($ 2 | Display Balances within}''( | a specified range}((( 3 | Display Receivables{}}((( | within a specified} ( | date range#}((( 4 | Display Receivables(}((( |} | within a specified-},,($ | balance and date range2}&&( 5 | Display Specified7}( }} | customer<},,($ 6 | Display Amount ReceivedA}((( | within a specifiedF}( | range~}K}$d}((( 1 | Display all Vendorsn},,($ 2 | Display Balances withins}''( | a specified r}angex}%%( 3 | Display Payables}}((( | within a specified} ( | date range}%%( } 4 | Display Payables}((( | within a specified},,($ | balance and date range}&&( 5 } | Display Specified}( | Vendor}((( 6 | Display Amount Paid}((( | within a spec}ified}( | range}$D2:RECEIVE.R01GLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU>'D@?@@@@ABCDEFG}@HAI@JKL@MNOX%PArQRSBTUV}Wq$XL$Yk$Ze$[\]A^!+@_A`#abBcdAreC f}g@h\ PPi@j@k@lXrmQ@n opqrstu}vAw($@xy@z{|}ArSAVE "D:BASIC.P. STEP ONE;@@},;@@,;@@,;@f$@,;@,;@$A,;@"$@9,;@%,;@,;@}, GG;@,9@A,9@B,9@B,9@,9@,11;@%,;@,;@,;@%,(\}R;@,;@,;@,;@,;@,;@,;@,\T$(100))&6-F:Ap,&!A0}.A +'0@@A0@@ @84-@@4 Which drive will hold yourB*-}@@* data disk? (1/2)L16-@"6-@'6-@1 B V%01*02 B % A`} 6-A:,Apj>6.D :RECEIVE.DAT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GL}By 6.67,.I01{o67@<@,.1& AIM@@ D:PROGRAMZ@e@}o AP}"6. D:RECEIVE.SCR"@~* A`*@@ A0 A AP/} B@/68@,-@-@@@@@} 68,-68%@,-8,% @//@@D :RECEIVE.F01@}@6-A:, 9,9%,9, @@ 94 D:PAYABLE.SCR967@4<@C},. Payable  34 D:RECEIVE.SCR367@%<@(,.Recd-@@( 68,-68,-}68,-2 <%%9%@,;@$@V,F%68@,-@%(AK-@P@}Z678,,.d68%@,-8,%B:,i68%,-n o4 A4@@ D:PROGRAMp@}@q94 D:PAYABLE.SCR967@4<@C,. Payable x" B@" A  68,- }@ A @+@/-@@/ @ PLEASE PLACE/-@@/ @} PROGRAM DISK.-@@. @ IN DRIVE #10-@@0 @ PRESS --@}@- @ WHEN READY6-@ B$READ IN TEMP VARS7@7@@ }D:DVARS.TMP! B!READ IN VARIABLES@ 6.N6.Y@@}*@7@D@Q@^@k@x@@ @ }9, -@ @68,-   $@6. B!$6- 44@3@} D:DVARS.TMP A`  CLEAR OUT SUMMARY  6-6-ADJUST SEC. SUMMAR}Y"$3 A@26-36-A:7Ag<Au,,3 A@46-36-A:7Av<A},,3 A@66-36-A:7A<A,,"ADh68@,-8@,%m!8@, !}68@,-r68@,-8@,%w!8@, !68@,-|68@,-8@,%!8@, !6}8@,-&$068@,-568@,-:68@,-?68@,-D68@,-I68@,-}$OVERALL SUMMARY ADJUST  6-%$PRINT SUMMARIES B6-A?(-6}7A0,.SUMMARY FOR SECTION #?67AQ,.=:,b&67A0,.OVERALL SUMMARYG67@e<@r,. b6}7@x<@,.1 ##6-+!,$%+",$77*")"*")"AR>#6.T}OTAL TOTAL COST 46-8@%,> AY>#6.MAXIMUM TOTAL COST 46-8@%,> AYf#6.TO}TAL AMOUNT RECD K67@<@,.7@%<@(,\6-8@%,f AYf#6.MAXIMUM AMOUNT RECD }K67@<@,.7@%<@(,\6-8@%,f AY>#6.TOTAL BALANCE DUE 46-8@%,> AY}>#6.MAXIMUM BALANCE DUE 46-8@%,> AY(AU6-w6-@|3#6.NUM}BER OF RECORDS INPUT: )6-3 AY B$ 6-%A`6-@ (67%,.OVERALL(6-%@}*67%,.6-%B:,467%,.=:,>$pz. STEP SIXA +'0@@ @A0@}@6 A`6-6@@@6-%@67&@,.=}:B%,)67&@,.7&@,) A`P Aa@ @@ Aa } Ai A` Aap6-@@67,.6-B:,%@ AaP226-A:7P:'@,$}@%@,,&@$ Ab@3REORDER INDEX$ AS PER I018 B-@B3 6- 36-A}:7$@&@<$@,,L/6-$@&@/6-@$&@VQQ67<%@,.=:A%@:7%@,,}%@'$+@:7,,&@d,&@d,`W!67<%@,.7%@,=6-@:7%@,,&@2I!@W6-&@dj}!!67%@<%@,.>:,t  Ad+@+@@@ B 8 6.} #67@f$@,.267@,.86.Q 6.67@,.)67Aa,.-967A@,.Q67Ab,.7Aa},<FSTART PRINTING REPORTPZA +'0@@A0@@ @d?AR@}? %Your report is now being produced ...i #Ag"6-n56-@ A05CLEAR OVERALL SUMM}ARYs6-x-@{467@x<@,. *6-4 B} "(8,Af`/ )}6- A0/CLEAR SEC SUM[6-#-@@:68@%,-I68,-M [-@}116-A:7@$&@<@$&@,,6-@:7@$,, BREAD IN RECORD AACCE}PT/REJECT?Af0 A ApCALC PC'S$ ) A@$ADJUST SEC SUM! A!PRINT }RECORDS6-%@  B* * B*PRINT LEFTOVER REC'S-6- AP-PRINT SEC }SUM& AF&ADJUST OVERALL SUM 16-@ AP1PRINT OVERALL SUM"67B:,&@,.SCR}#@ Af@@@@ D:MENU.FLE$ B Af% AiP Af&"@} Af"+'% D:MENU.BAS) B,1,1,1,1,1,1,1,1,1,1,1,1,1 +@/-@@/ }@ PLEASE PLACE/-@@/ @ DATA DISK IN,-@@, @DRIVE # 0-@}@0 @ PRESS --@@- @ WHEN READY6-@ B$& +@+/}-@@/ @ PLEASE PLACE02-@@2 @PROGRAM DISK IN5+-@@+ @}DRIVE #1:0-@@0 @ PRESS ?--@@- @ WHEN READYD6-@ B}$XbNEW PROG. CALC.'Sl{?68@,-8@,%A:78@@,<8@A,&@,,{68@,-8@,%A}:78@@,<8@A,&@,,$@JACCEPT/REJECTTc66.7@ <@,$ B$,4Y6 B(}e 6.g66.7@<@9,$ B$,4Y6 B(i 6.k3 AE6-36-A:7Av<A,,m}*6.7A<A,$ B%*6-o3 AI6-36-A:7A<A,,q B4!"@6-(}+@,>!"@6-(+,H!"@6-(+,R!&"@&6-(++,*+,,\!"@6-(+}4)4,f!"@6-(+,k!$!"@6. B! 0 B6.!$(#2#PRINT REC}ORD<#># BA#11IF NOT NRS THEN GOSUB 11500:REM CLEAR PAGEF##!@` B# BK#<67@,.} $67@,.<67@,.7@,P#-@Z# 6-8,! 6.=:8&,,d#$$6.78,<8%@,&@},i#-!@* @# B - An#))678,&@<8,&@%B:,,.x# 6-%@#67@%}$@,.#16-%@"#6-16-%@#$'PRINT PAGE''(67@f$@,. (6-@}$' 4P B$.'76-6-% B7PRINT TO SCREEN8'-@@ B'A"6-@0%H:},$AA6-@%@$H:,L'2@ V';2@'6-'@;!? }Bp`'.@.@@K:j')@t',"@:?, B@" B, Bw'"@:}P, Bz'"AU$~' 6-6-'"@E6-&@'"@a6-%@'"@C6-}&@'"@B6-%@'"@(6-&@'"@)6-%@'"@06-&@}'"@16-%@'"@6-&@"'"A$6-%@"'"@6-&@@'"@}6-%@@( 6- (!@@6-@@( 6-(!@D6-@D}(("*"B2( BPRINT SCREEN<( B)PRINT WINDOW ON SCREEN)) }AR@}")+-@!+6-%@$+%,,))-) 7%@<%@@,6)J -@"J   ROWS }%@ TO %@" @)A-@ @"A COLS %@ TO %@@ J) -@5@" }T)>-@@#> #ۿ for help, to continue.^)$*+%%PRINT PAGE OF REPORT TO PRINTER ++}3B:, @f$@367@f$@,. + BP$+''-@@f$@@ +37<%@y},*+ 4+$,,CLEAR PAGE- -)6-6-)6-%@-67@p,.=:,-67@x,.=:},(-P67AA,. ,67@f$@,.D67AB,.7AA,P6-@2-$ N*NINPUT RECORD4N>N+}@+@@HN2 6. #67@"$@9,.267@,.RN@\N-@fN''}8, @)8,!@BpN@zN$$678,<8%@,&@,.N 678,,.N@$}UNUMERIC FORMATTINGU6-P:@#%?P,U6-P:$%?P,'V""6E)EB  V"}6-6@V# 6.=:,6-B:,#6-%@V$-@7<,4.$6-"V 'V6. ,V%}!B 6V67&,..000000@V767%@&&,.*67%@,.4 B7$JV. 6.*67&@,.+67@},..$WFORMAT STRINGW# B$@6.6-B:,#6.W-@:7,,"@2#6-&@- B$ W6.7@}<,W B$WFORMAT DATE YYMMDDW6- B%@W""6-A$A:,%A:7@,,X6-B$A:7@},,% X B$YFORCE UPPER CASEYB:,"$$Y-@B:,.Y6-@:7,,8Y/!@* A#}/67<,.>:&@2,BY   $]: }@:  KEY FUNCTION ])()( [-] Scroll up o}ne line.]((( [=] Scroll down one line.]--(% [+] Scroll left one character.]..(& [*] Scroll right }one character.](]((( [] Scroll up ten lines.]**(" [] Scroll down ten lines.]//(' [] Scr}oll left ten characters.^00(( [] Scroll right ten characters. ^(^( [_] Page up.^( [|] P}age down.$^( [\] Page left..^( [^] Page right.8^(B^((( [P] Send page to printer.L^-(-("} [RETURN] Continue with reportV^.-@@".  to continue.`^ F:B2y,@BA`j^$aP}RINTER CHECKa6-@a8 BP`@8@@P:a6-a B@a}$aO-@@# .-@@#E O BP@0uFOOLPROOF INPUT ROUTINE:u4AR}@6.(6-@46-Du!!"*"B`Nu -Xu,6.mm/dd/yy"6-@, B@}Bw(6..67,.(67@,.Lw ARVw-%@ `w##@@K:}jw)@ow'"AU** @'6-tw"@'6.~wL"AU)"@'+AR@2 }=@I6-L$w"A&*Bpw%% @2)!A")"Bpw'!67%@,.7%@<,'}6-w67,.>:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-}6-&@)AR@w -% 7<,w"7<,4/"6-&@w867%@,.'AR}. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OP}TION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*"@}$x"@*"@$x"@*"@$#x"@*"@$(x"@*"@$-x B}%Px B Zx0Y*0N*0Bdx$x.@.@@K:xAR@x} -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AUB }x"@'6.$x!@1* @6-y'!@* A#'6-&@2y B y -6.>:}, $y]@)0@@C0@@]0@@@"y$|y--@@}"- 7@<@5,y$|^67@,. $67@,.<67@,.7@,H"@T6-@^ B}0|6-%@|`-@@R678%@,&@<8%@,&@r,. ---------V ` A|<67}@,. $67@,.<67@,.7@,|P6-@ 6-@)6-%@=-@@F6-8,P }B |P4678%@,&@<8%@,&@r,.8 B AP6-%@|F67@,. $67@,.<}67@,.7@,F A|!BE|6-%@|Z67@<@%,.P67@'<@2,.78@},<8@,&@,Z A|67@,. $67@,.<67@,.7@,t67@<@2,. ==========}======================6-%@ A|--@@&68,-* -$|n6-%@%-@@}`678%@,&@<8%@,&@r,. =========d n A|X6-@ 6-@)6-%@=-@}@N6-8@%,X B |S4678%@,&@<8%@,&@r,.8 B AP6-%@S$}}:(6.78@8,<8@9,&@,2 B!:6-&}++6-A:78@@,<8@A,&@,,}Y @06-@}568@,-8@,%O68@,-8@,%Y B P }Y @a6-@568@,-8@,%O68@},-8@,%Y B P}Y @6-@568@,-8@,%O68@,-8@,%Y B P}C6-@ } )68@,-8@,%C68@,-8@,%2}8)678,&@<8,&@%B:,,.56-@ 8$d}8.6.$00 }00310590901201511812122432733043348 B!%i}Q6-A:7@<@,,76-A:7@<@,,Q6-A:7@<@,, }n}hh6-%+&@r,$Ae%P:+&@i,'@,%A:7@$&@<+@$&@,%@,,s}H:!@*+A }%,'@"P:+A%,'@,H6-%@x}$}} 6- B$ D:RECEIVE.P01ERRCRNUMFLDNUMTXNe12880210066 ../../.. *** Accounts Receivable Report *** SECT PAGE  Due} Date Invoice # Amt Paid Current 31- 60 61- 90 91 + Balance 41-1327-13881-1990}-137100-140111-140121-140131-140141-140152-1e Report *** SECT PAGE  Due@pq&CAFDIRSDDCLINESEVOSKITLE1LBLPRMNULTRCPDTLE2TLE3BPRGRIIDAUTOTLEERDISBREA} }} !"#$%&'(hh;@@,;@ ,;A,;@ },;@,;A,;@,;@%,;@@,&&;@ ,;@,;Ae,* 6. 67@@,.*}67@,.#6-@6-@(* 6..67A,.*67@,.2*6.D :*.**67@<@,.=:,}<* 6. 67@,.*67@,.FAR@d Bi Bp.@.@@}K:26-@%B:,$6-@%%*-2  6.)@ 6.>:, @-}@7<,4' A  AP6-$@&@6.7<%@,$$7@<@},41A)7@<@,42&+).$$7@<@,43A0$$7@<@,44A@}$$7@<@,45AP,RUN A PROGRAM167@<@,.D:6-@@;7<,4 }' A0@ J6-&@O''67@<%@,.7@<,TL 67%@<%@,..L67%@<%}@,.7@ <@,W9-@@%%9   Loading Program Y**@@ D:PROGRAM}Z64C)4D, @ D:PAYABLE.SCR6 AH[ @ D:RECEIVE.SCR\@] A`^%h}@ B }m2-@@2  Cannot execute program.o1-@@1 Press to continuer} F:B2y,@Apu Aw @%EXIT TO BASIC + DIRECTORY B } AFORMAT UTILITY B A$ B @%""DISPLAY REPLACE DISK ME!}SSAGEA +@'0@@@A0@@(-@@( @PLACE0-@"}@0 @ MASTER DISK%-@ @% @IN,-@@, @DRIVE #1-@#}@1 @PRESS --@@- @ WHEN READYB2y@* B*F:B$}2y,@AX* B*F:B2y,@AX $fDISK CHECKg AYh6-k+@%}+@@l B@m6-!@n @ Ao$*DIRECTO&}RY*$, FORMAT,DISK FORMAT UTILITY,+ +@AR@+6-,9AA'A @'}9AA-.. & TO RESTART FOR MENU-  -** ! TO BEGIN FORMATTING-7-(}7 @____________________-.-@@. @ DISK FORMAT-*-@@* @)}UTILITY-7-@7 @____________________#-Bp(-3-@@3 @ REMOVE M*}ASTER--5-@@5 @DISK FROM DRIVE 2-3-@@3 @PLACE DISK TO BE7-8-@+}8 @FORMATTED IN DRIVE <-CONSOL ROUTINEA-B2y@F- B6-F:B2y,K-!!"@*,}"B P-"@$U-"@BZ-+"@!B2y@+ B_- Bd-@ B$-}@@@@ D:MENU.BASe- B Bh-@i- 6.D :n-67@<@.},.=:,s- Bx-6-@@6 @ formatting disk }-4(AT@46-@/}- A>% +AR@%  >5-@@5  Directory for Drive # >=-@@0}= ## NAME EXT # NAME EXT>?-@@? %>-@@1}$t@INSERT DISK FOR DIRy@ }6-~@-@@  @&(&  in drive .@4-@2}@"4  to continue@ F:B2y,@Be0@$hBNEW MENU FORMATmBC +A@3}1AR@CA@wB#-@# Vol # |B6-B-@2 B-@4}@B0-@0 7$@0&@)<$@0,B B"Bp`B-@B6-$@ &5}@B1-@%@%1 7<%@,7<,B @6-%@B@6-B B-6}@ @%% B$PFLOAD MENU_F 6.6. D:MENU.FLEiF 6.nF AYpF&&6. Insert disk wit7}h menusF Be B0xF+@+@@}F@@F@F8}-@@F@F&&67$@0&@)<$@0,.F F-@@F 6.6.F9}@@F&&67$@ &@<$@ ,.F67<,.F F@F-@F 6.:}F@F&&67$@&@<$@,.F G@G$R$y)6-F:@,&A(& ;})$y@B7t$ D:MENU.BAS1LBLPRMNULTRCPDTLE2TLE3BPRGRIIDAUTOTLEERDISBREA5  AAR@= }-@@= Loading menu. Please wait ...%"=} D:MENU.BASd) B+)AR@i1-@@ 1  Insert main menu diskn!(!  i">}n drive 1s@-@@"@ % to continue, for Basicx6-F:B2y,}"@@ ""@"?}+" A  D:LINK.BAS= }-@@= Loading menu. Please wait ...% 7 *** System Notes *** The first menu that you see is themain menu. You will have the optionof running a Data Entr&A}y Program, a Report Program, or a program that will allow you to view these notes.From this menu you will also be ableto &B}format a disk, or exit to basic. The Data Entry Program Menu hasseveral important options available.The following screen&C}s will explain each option and when to use them. **** IMPORTANT NOTE **** YOU MUST HAVE A BLANK FORMATTEDDISK&D} BEFORE YOU RUN THE DATA ENTRYPROGRAM. LABEL THIS DISK AS YOUR DATADISK. All the information that you enter will be sto&E}red on this disk. When yourun the Data Entry Program you will beasked to insert this disk. You can use the format optio&F}n from the Main Menu to format a disk. File Preparation ............... F This option will prepare your datadisk&G} to store the information that you will enter. It is necessary foryou to take this option the first time you run the progr&H}am. REMEMBER ... It is necessary for you to take this option the first time only. Once you have entered data - taki&I}ngthis option WILL ERASE ALL OF YOURDATA to prepare your disk for a new file. Enter new records ............... E &J}This option allows you to enter theinformation to be stored on your datadisk. To stop entering data and return to the data&K} entry menu press'ESC' twice. Once all of the fields have been entered you will have the opportunityto change a field, &L}return to the dataentry menu, print the record, or savethe record. Pressing 'ESC' while entering datawill skip the rema&M}ining fields on thedata entry screen. Lookup records ................. L This option allows you to view arecord th&N}at you have entered. You will be prompted to enter the 'KEY'information that corresponds to therecord(s) you want to view.&O}** The Customer is the keyfield for the Accounts Receivable program. This field will contain the 'KEY'information fo&P}r each record Search records ................. S This option allows you to view allof the records that you have e&Q}nteredor only selected records. If you choose to see all records each recordwill be displayed on the screen. If you only &R}want to see certain recordsyou must choose a field to 'SEARCH'on and enter information for this option. When yo&S}u are 'Looking up' or 'Searching' records you can press : 'ESC' - to return to the menu 'OPTION' - to get a printed c&T}opy of the record 'SELECT' - to change the record 'START' - to continue displaying records &U} 'D' - to delete the record Delete records ................. D This option allows you to removerecords from your da&V}ta file. Once arecord is deleted, it cannot berecovered. You will be asked for the 'KEY'information for the record that&W} youwant to delete. The record will be displayed and you will be asked to verify that you want to delete the record.&X} Update records ................. UThis option allows you to change anydata that you have entered into yourfile. You&Y} will be asked to give the 'KEY' information that has been entered in the 'KEYFIELD' of the record(s) that you want to del&Z}ete. To cancel the update process press'ESC' To print the record press 'P'. To save the record press 'S'.&[} Exit to Main Menu ............. M This option will take you out of the program and exit you back to themain menu. &\} Exit to Basic ................. X This option will take you out of theprogram and exit you into basic. ****** Prog&]}ram Notes ****** Since 'Customer' is your 'KEY FIELD',you must enter something in this field.You will not be able to ski&^}p entry onthis field. REMEMBER ... This field is used to lookup, updateand delete records. So you should enter valid &_}information in this field. If you choose to run the reportprogram you will be given the optionto sort your data fil&`}e. The sort program will arrange your data filein either alphabetic or numeric order. There are two times when youmust so&a}rt your file. 1) The first time you run the report program. 2) When you add, delete, or update r&b}ecords. Any other time the sort is optional. When you create a report, you willhave the opportunity to specifysev&c}eral different sections. Each section will print only specificinformation except section one which will print all informat&d}ion on file. You will see a description of what each section does when you run the report program. This produc&e}t was created usingprograms developed by CodeWriter Corporation. The Data Entry program was createdusing FileWriter. T&f}he Report program was created usingReportWriter. The Menus were created usingMenuWriter.optionof running a Data Entr$`HAVIEBREASAVE "D:NOTES.BAS ;@@,*h}6-> @1@@D:USER>@14VIEWED6-@'@1 AP*i}< B@<@@D:USERZ" @VIEWED"@dg +AA(1*j}AA(CA @UAR@g@@i,,@@ D:NOTES.FLEx A*k}? } B(-@@ 2 A?@   <-@@"< " to print, t*l}o continue@!!-@@#@  or to exit,F:B2y,"@" A, AP F*m}:B2y,"@A0**F:B2y,"@*!A Ap@ }:-@@: *n} Program loading, please wait ...AR% D:MENU.BAS, Ap6<-@@" /-@*o}@"< Printing@2-@!6.2-@8J 167%@,.>:,T  3 r$y*p})6-F:@,&A(& )$"y@B7t$ D2:NOTES.BASSAVE "D:NOTES.BAS ;@@,(YghSCRIDXDATPNTINDEXSRLTRPRTREPNUDSFLLENGTTYPIGCASUDOWIPNFFLLOHIGMIEMAR.r} .s}.t} !"SAVE "D:SORT.BASdPROSPECTIVE SORTn1) ENTER SORT PARMSx2) REQUEST DATA DISK3).u} READ IN INDEX$4) READ IN RECORDS5) SORT RECORDS6) CREATE .I## FILEHOUSEKEEPINGpp;@,.v};@,;@,;@,;A@,;A$@B,;A,;@@,;@@,,STEP ONE6//@.w}@D:SORTPARS.DAT@@@B@@J@@K.x}@@L6-!6- M 6-O:,N"@6-@O"@6-@Q S.y}TEP TWO REQUEST DATA DISKRT 6.6-B:,%@^67&@,..IDXh 6.r67,.=:A%,|)67<.z},.I)67@<@,.15 A@5@@ B A +@/-.{}@@/ @ PLEASE PLACE/-@@/ @ DATA DISK IN=-@@= @DR.|}IVE #7@<@,0-@@0 @ PRESS --@@- @ WHEN READY F:.}}B2y,@Ap + ASTEP THREE READ IN INDEX$ A6-@@.~}67,.6-%B:, A''6-P:B:,'@,$@%@- A06--6-A:7,,&@.}! B!!A8 }-@@8 NO RECORDS IN DATA FILE.&& STEP FOUR: READ IN R.}ECORDS6 6. !67$+@%,,.067@,.66-" 6."67B:,&@,..DAT1 +-@.}@1AR@ RECORDS READ IN:+@+@@-@QQ6-@'$.}+@:7$@&@,,&@d,%@:7$@&@,,&@d96-@:7$@,,&@2+!A'96-&@d .}@-@ @* 467,.=:A%,>AAAH67&%@.}<,.R6-%@%W-@"@ \ fpSTEP FIVE: SORTz"@AP,-@.}@, RECORDS SORTED: 16-%@""-&@6@6-%@6-&@,,6..}7$%@<+%@,$&@,66/7$%@<+%@,$&@,*A@6617$%@<+%@,$.}&@,*A@>.37$%@<$+%@,&@,*46-> A>.27$%@<$+%@,&@,.}*46-> A "6- A 6-P:+%%@,'@,>.37$%@<$+%@,&@,*46.}-> A `>.27$%@<$+%@,&@,*46-> A `6-&@ A `06-$+&,0AV.}$P:'AV,"A $$6.7$%@<+%@,$,SS67$%@<$++&@,%@,,.7$+%@,%@.}<$+%@,,$$67$%@<$+%@,,. -@"@ &  A0NUMBER TO STRING".} A6-"6-A:,# B#6.0001.0000000000"$6-P:L:O:,,,6-O:,'@#.}46.=:A%,467@<@,.7@,( 6.=:,(67@<@%B:,,.!$-@.}@ 67<,.>:@&@:7,,,   $DATE REFORMAT6.7@<@,(O"@e/67@,.7@.}<@,O67@,.7@<@,2O"@i/67@,.7@<@,O67@,.7@<@,.}< 6. $xSTRING STUFF} 6. ( $B:,"$-@B:,6-@:7,,'!@* .}A#'6-&@267,.>:,   $$$6.7$%@<+%@,$,OO67$%@<$%@,.7$+%@.},%@<$+%@,%@,SS67$%@<$++&@,%@,,.7$+%@,%@<$+%@,,$$6.}7$%@<$+%@,,. A@  STEP SIX WRITE I## FILE  , 6.,67B:,&@